Sub QuitaSaltosDePárrafo()
' Macro de Word para borrar todos los retornos seleccionados
' https://www.gonduana.com/como-borrar-los-retornos-en-word

Dim oRng As Word.Range
Dim oRangoLímite As Word.Range
Set oRango = Selection.Range
Set oRangoLímite = oRango.Duplicate
  With oRango.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^p"
    .Replacement.Text = " "
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    While .Execute
      If oRango.InRange(oRangoLímite) Then
        oRango.Text = " "
        oRango.Collapse wdCollapseEnd
      Else
        Exit Sub
      End If
    Wend
  End With
End Sub